home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / windows.arc / DEFDEMO.PAS next >
Encoding:
Pascal/Delphi Source File  |  1985-02-23  |  948 b   |  37 lines
  1. {$I Var.Inc}
  2. {$I Windmngr.Inc}
  3. {$I DemoDefs.Inc}
  4. {$I Growwin.Inc}
  5.  
  6. var ch:char;
  7.     i:integer;
  8.  
  9. begin
  10.      Initialize;
  11.      i:=0;
  12.      Select_window(1);
  13.      Select_Window(2);
  14.      Select_Window(3);
  15.      repeat
  16.            Select_Window(1);
  17.            Write('Window number 1 ');
  18.            Select_window(2);
  19.            write('Window number 2 ');
  20.            Select_window(3);
  21.            write('Window number 3 ');
  22.            i:=i+1;
  23.            if i=40 then
  24.                 begin
  25.                       Grow_window(22,7,58,22,14,0,2);
  26.                       textcolor(2);
  27.                       for i:=1 to 100 do
  28.                           begin
  29.                                write(' Growing Window ');
  30.                                delay(10)
  31.                           end;
  32.                       delay(1000);
  33.                       remove(1);
  34.                       i:=0
  35.                 end
  36.      Until keypressed
  37. end.